PROGRAM series
IMPLICIT NONE
REAL :: sum=0
INTEGER :: i

DO i=1,100
  sum=sum+1.0/REAL(i)
  IF (MOD(i,10)==0) WRITE (*,*), 'SUM after',i,'terms =',sum
END DO
END PROGRAM

